PPPPPPPPPPPP LLL IIIIIIII1 RRRRRRRRRRRR TITTTTTTTTTTTITT LLL 

PPPPPPPPPPPP LLL LIIIIII11 RRRRRRRRRRRR TTTTTTTTTTTTTITT § LLL 

PPPPPPPPPPPP LLL LIIIIII11 RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL 

PPP PPP LLL II] RER RRR TTT LLL 

PRP PPP LLL III one RRR TTT LLL 

PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] ROR RRR TTT LLL 
PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] dd TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL III RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PRP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

BPP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

PRP Lil II] AER RRR TTT LLL 
PPP LLL I]] FOR RRR TTT LLL 
PPP LELLLLELLLLLLLL IIIIIII11 RRR PRR TTT LLLLLLLLLLLLLLL 

PPP LELLLLELLLLLLLL IIIIIII11 RAR RRR TTT LLLLLLLLELLLLLLE | 
PPP LLLLLLLLLLLLLLL IIIIII111 RRR RRR TTT LELLLLELLLLLLLL 


ad 
nn 


in 
ix 
13 


Ot oe Ps be bt bb be bt 


bo bs be oe as es | ell onl coed 


PRPPZ PPPPVPP PPP -PPPPPPPPPPPPPPPP? 


osenenes 


227222222 


*eF ILE**1D**PLIDATE 


PPPPPPPP LL III111  DDDDDDDD AAAAAA =—s«aT'TTTTTTITT EEEEEEEEEE 

PPPPPPPP LL 111111 — DDDDDDDD AAAAAA _—‘TTTTTTTTTT + EEEEEEEEEE 

pP PP LL 1] dD DD AA AA TT qa 

PP PP LL 1] dD DD AA AA TT EE 

PP PP LL I] dD DD AA AA TT Fe 

PP PP LL 1] dD DD AA AA TT EE 

PPPPPPPP = LL 1] dD DD AA AA TT EEEEEEEE 

PPPPPPPP LL I] dD DD AA AA TT EEEEEEEE 

PP LL I] dD DD AAAAAAAAAA TT EE 

PP LL 1] dD DD AAAAAAAAAA TT EE 

PP LL I] DD DD AA AA TT EE cual 
PP LL 1] DD DD AA AA TT EE siete 
PP LLLLLLLLLL «©=sTIIIZ «©=-DDDDDDDD-—s AA AA TT EEEEEEEEEE “rie 
PP LLLLLLLLLL «=—sdTII1 «= DDDDDDDD—sAA AA TT EEEEEEEEEE rat 
LL HII SSSSSSSS 

LL HII SSSSSSSS 

LL 1] $$ 

LL 1] $$ 

LL I] SS 

LL II SS 

LL 1] SSSSSS 

LL 1] SSSSSS 

LL 1] SS 

LL I] SS 

LL 1] SS 

LL I] SS 

LLLLLLLLLL «©=sSIIII «= SSSSSSSS 

LLLLLLLLLE «= sTTIII «= SSSSSSSS 
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pli$date - return date 
pliStime - return time 
subroutines 
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PLISTINE_DATE - pli runtime routines for d im 16-SEP-1984 02:16: 
1-002 pit runtime routines for date and vim erSEp=1984 11:88:25 EPCIRTL. SREPLIDATE. MAR: 1 d) 


6-SEP=-19 


etitle pli$time_date - pli runtime routines for date and time 
- ident net ty, os d 3 Edit WHM1002 


=MARAAARARAAAAAALAAALALAAALELALA SALAS ASAE SSAA ASSETS EEE RRR RRR E ERE ARR R 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


Invoke macros $defdat and rtshare instead of $defopr and share. 


external definitions 


; local data 


4; 
5 ;* * 
;* * 
0 : :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
B08 3 :* ALL RIGHTS RESERVED. * 
Py ® 
4s 10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
00 11 ;* ONLY IN ACCORDANCE WITH THE TER OF SUCH LICENSE AND WITH THE * 
464 \ 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0 135 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
44464 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
48 1? :* TRANSFERRED. * 
3 ® 
0000 i 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
464 18 ;* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 1? 3* CORPORATION. t 
o* * 
0000 1 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
+4464 § = SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ry ® 
0000 4 3* * 
4 $2 SRA EAR AAA AREA AERA AAA EEAAAEEEEEARAERERAEEAEREAREERAAEREREAE REE EEAEEEE 
0000 $6 3 
0000 ae 
0000 9 ; facility: 
0000 D3 . 
0000 13 VAX/VMS pli runtime Library. 
0000 3 3 
0000 33; abstract: 
0000 4; : , F 
0000 This module contains the pl1 runtime routines that format 
0000 eS 3 date and time 
0000 73 
0000 8 ; author: 
C000 9; r. heinen 16-feb-1979 
0000 40 ; modifications: 
0000 41; 
0000 g 3 
0000 3 1-002 Bill Matthews 29-September-1982 
45 ; 
0 46 ; 
0 47; 
0 $8 
0 4 
0 
4 
5 
0 89 


SOOoooooooooocoeo 
SOoQoQooooooooooo 


rtshare 


TL ASI HE DATE ouiga Pa snag routines for date oak ets 1e"s60= 138% 96:48:30 AX/VMS Mac 


v04-00 P 
e - return date 6-SEP- P _— d) 


r 
PLIRTL.SRCJPLIDATE MAR; 1 


1 
a 
23 7 -sbttl pli$date - return date 
1 ; pli$date - routine to return date 
0 68 : functional decription: 
$3 9 : This routine returns the date in YYMMDD format. 
00 89 3 inputs: 
00 68 ; 
4 $ 3 ri = address to return string - char(6) 
0990 71 ; outputs: 
000 i $ 
0000 a3 3 string is returned. 
464 74 3-- 
000c 000 75 -entry oi [Sdete, “etree 
5E OE€ C2 000 76 subl 14,$p ; allocate buffer 
26 5E dO 000 77 mov l sp.r 3 
5 51 DO 0008 78 movl rl? 3 save buffer address 
0008 79 Snumtim_s timbuf= (r2) :; get the time 
50 82 3¢€ 0016 80 movawl (r2)+,r ; get year 
51 D4 0019 81 clr r 3 setup quad word 
51 50 50 00000064 8F 7B 0018 86 ediv #100,r0,r0,r1 3 get remainder from 100 
003F 0 O05 : bsbw cvrt_two_char 3; convert two characters 
51 8 C 0027 4 movzwl (r2)+,r ; get year 
0039 0 Q02A 85 bsbw cvrt_two_char 3; convert to 2 chars 
51 8 C tt 86 movzwl (r2)#,r1 i get day 
003 30 0030 87 bsbw cvrt_two_char 3 convert 
04 0033 88 ret : done 
0034 89 esbttl pli$time - return time 
0034 90 ;++ : 
0034 91 ; pliStime - routine to return time 
it 38 3 
Ope 32 3 functional decription: 
0034 95 ; This routine returns the time in HHMMSS format. 
Oo 88 96 ; 
8 2 4 3; inputs: 
0034 99 ; ri = address to return string - char(6) 
8 4 100; 
034 101 ; outputs: 
$0 d 198 : string is returned. 
g 
bee 104 ;-- : 
000c 0034 105 eentry B) /St ine, “acre. 73> 
5E O€& C2 0036 198 subl 14,s8p ; allocate buffer 
25 5€ 00 0039 1 movl sp.r ; address buffer 
5 51 00 O003C 108 mov l rie 3; save buffer address 
O3F 109 Snumtim_s timbuf= (r2) : get the time 
52 06 0 Q004A 110 addl #6,¢r 3; point to time data 
51 8 C 4D 111 movzwl (ré)+,r1 3: get hour 
001 0 29 16 bsbw cvrt_two_char 3; Convert two characters 
51 Be f 5 11 movzwl (r2)?,r1 3 get minute 
000D 28 114 bsbw cvrt_two_char 3; convert to 2 chars 
51 82 C 5 115 movzwl (r2)?,r1 3 get secon 
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0097 
0004 
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5¢ 11 bsbw curt _two_char ; convert 
| movzwl (r2)#,r1 3: convert hundreths 
$e 113 bsbw cvrt_two_char : 
6 11 ret ; done 
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PLISTIME_DATE L1 runtime routines for date and tim 16-SEP :50 VAX/VMS © V04-00 P PL 
et subroutines 6-SEP =}382 4: }$: 30 YPCIRIL L.S sass PLID t's MAR; 1 sn dh) nH 
$ ! i -sbttl subroutines 
é } Z ; cvrt_two_char = convert number to two ascii characters 
4 5 ; inputs: 
oes 1 5 : ri = number to convert 
bee ! 8 ; r3 = address to store data 
ss p 3 outputs: 
6 1 : r3 = updated address 
Boek 138 i= ge : 
bee 134 cvrt_two_char: 
50 «(51 OA 4 066 135 Givi s #10,r : get tens digit 
83 650 0 1 QO6A 1 § addb a OrOy. (r3)+ 3; Insert character 
0 3 £3 vai i 8 mur 4 " ’ : remove tens value 
83 51 30 81 0074 139 addb3 fna/0/.r1,(r3)4 : insert ones digit 
05 0078 140 rsb 
0079 141; 
0079 §=142 end 
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' Psect synopsis : 


fom nm eecenen eran ee 


Allocation PSECT No. Attributes 
0008 poe 0.) 99 $ 9} NOPIC USR CON ABS CL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00000 121.) e PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
foeerowce Semen mone newman ene + 
; Per formance indicators ; 
Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.06 00:00:00.37 
Command processing 65 Sb 4 SP oe 00:00:07.50 
Pass 1 67 0:00:00.66 00:00:03.41 
Symbol table sort 0 es Sha a 4! 00:00:00.00 
Pass 2 29 00:00:00.31 00:00:01.38 
Symbol table output 0 00:00:00.02 00:00:00.01 
Psect synopsis output 2 00:00:00.01 00:00:00.04 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 172 00:00:01.60 00:00:12.98 


The working set Limit was 750 pages. 

2479 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

imere were 10 pages of symbol table space allocated to hold 4 non-local and 0 Local symbols. 
142 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

3 pages of virtual memory were used to define 3 macros. 


ee eeere ee ee merece ee wees nce wa $ 


Macro Library name Macros defined 


“$255$DUA28: PLIRTL.OBJJPLIRTMAC.MLB;1 1 
“$255$DUA28: (SYSLIBISTARLET.MLB;2 ¢ 
TOTALS ‘all Libraries) 


16 GETS were required to define 3 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=TRACEBACK/LIS=LIS$:PLIDATE/OBJ=OBJ$:PLIDATE MSRC$:PLIDATE/UPDATE=(ENH$:PLIDATE)+LIB$:PLIRTMAC/LIB 


EQUIPMENT CORPORATION 
NTIAL AND PROPRIETARY 
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